home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 7
/
FM Towns Free Software Collection 7.iso
/
fb386
/
graf
/
a10.bas
< prev
next >
Wrap
BASIC Source File
|
1993-11-30
|
971b
|
31 lines
1000 'A10.BAS***************************************************T.K.MOSAKU
1010 SCREEN@ 0:WINDOW(0,0)-(640,480)
1020 CLS
1030 PI=3.14159!:C=1
1040 A$="☆☆☆ 楕円周に楕円を書き重ねています。 ☆☆☆"
1050 A=LEN(A$):B=(80-A)\2:LOCATE 0,24:PRINT SPACE$(B)+A$
1060 T1=TIME:S=0
1070 FOR T=20 TO 40 STEP 20
1080 FOR I=O TO 2*PI STEP .1!
1090 X=320+(80*SIN(I)+60*COS(I))
1100 Y=240-(50*SIN(I)-30*COS(I))
1110 CIRCLE (X,Y),T,C
1120 S=S+1
1130 NEXT
1140 C=C+4:IF T=20 THEN WAIT 100
1150 NEXT
1160 T2=TIME:T=T2-T1:LOCATE 5,1:PRINT "描き上げる時間--";T;"秒 描いた円の数--";S;"個"
1170 WAIT 200
1180 C=0
1190 FOR T=20 TO 40 STEP 20
1200 FOR I=O TO 2*PI+.2! STEP .1!
1210 X=320+(80*SIN(I)+60*COS(I))
1220 Y=240-(50*SIN(I)-30*COS(I))
1230 CIRCLE (X,Y),T,C
1240 NEXT
1245 WAIT 100
1250 NEXT
1260 T3=TIME:T=T3-T2:LOCATE 5,1:PRINT "消すのに要した時間--";T;"秒 "
1270 WAIT 100
1280 'GOTO 1200